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SQL> cl scr 



SQL> CONN SCOTT/TIGER 
Connected. 

SQL> cl scr 

SQL> DECLARE 

2 V_StartRange NUMBER := &StartRange; 

3 V_EndRange NUMBER := &EndRange; 

V_Result VARCHAR2 (500) := NULL; 

BEGIN 

FOR Mylndex IN V_StartRange . . V_EndRange 
LOOP 

V_Result := V_Result | | ' ' | | V_StartRange 

V_StartRange := V_StartRange + 1; 

END LOOP; 

11 DBMS_OUTPUT . PUT_LINE (V_Result) ; 

12 END; 

13 / 

Enter value for startrange: 1 
Enter value for endrange : 10 



10 



PL/SQL procedure successfully compl 

C\ 



SQL> SET SERVEROUTPUT ON; 
SQL> R 

1 DECLARE 










lange; 



10 



2 V_StartRange NUMBER := C 

3 V_EndRange NUMBER : =ti£?^jR^^e; 

4 V_Result VARCHAR2 ( =%JULL; 

5 BEGIN 

6 FOR Mylndex II 

7 L00P yjfeW' 

8 V_Result :^JV_Result| | ' ' | | V_StartRange; 

9 V_StaVt Range : = V_S tart Range + 1 ; 

END LOOP;’ -1; 



IM^V^5c|ftRange . . V_EndRange 



1 1 DBMS_(fc#9i|. PU,T_LINE (V_Result ) ; 

12* END ; Xy/ 

Enter vaiRte for startrange : 1 
Enter\aj (o^ for endrange: 10 
1 2 C,y 5 6 7 8 9 10 

procedure successfully completed. 




> ED 

rote file afiedt.buf 

1 DECLARE 

2 V_StartRange NUMBER := &StartRange; 
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3 V_EndRange NUMBER := &EndRange; 

4 V_Result VARCHAR2 (500) := NULL; 

5 BEGIN 

6 FOR Mylndex IN V_StartRange . . V_EndRange 

7 LOOP 

8 V_Result := V_Result | | ' ' | | V_StartRange; 

9 V_StartRange := V_StartRange + 1; 

10 DBMS_OUTPUT . PUT_LINE ( ' The Index Value : 

11 END LOOP; 

12 DBMS_OUTPUT . PUT_LINE (V_Result) ; 

13* END; 

SQL> / 

Enter value for startrange: 1 
Enter value for endrange : 10 



| | Mylndex) 



The Index Value 
The Index Value 
The Index Value 
The Index Value 
The Index Value 
The Index Value 
The Index Value 
The Index Value 
The Index Value 
The Index Value 
1 2 3 4 5 ( 



PL/SQL procedure successfully 



SQL> ED 

Wrote file afiedt.buf 



DECLARE 
V_S tart Range 
V_EndRange NUME 




10 

7 



w.= SStartRange; 
f: = &EndRange; 



V_Result VA^HARZi (500) := NULL; 

BEGIN 

FOR V_StartRange . . V_EndRange 

LOOP 

V_Result := V_Result | | ' 



w- .StartRange 



I | V_StartRange; 
:= V_StartRange + 1; 







10 ^DBM^PUTPUT . PUT_LINE ( ' The Index Value 
[ndex := Mylndex + 2; 

LOOP; 

. _ _OUTPUT . PUT_LINE (V_Result ) ; 

V\4* END; 

r QL> / 

Enter value for startrange: 1 
Enter value for endrange: 10 
Mylndex := Mylndex + 2; 



| | Mylndex) 
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ERROR at line 11: 



ORA-06550 

PLS-00363 

ORA-06550 



line 11, column 2: 
expression 'MYINDEX 
line 11, column 2: 



cannot be used as an assignment target 



PL/SQL: Statement ignored 





SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_StartRange NUMBER := &StartRange; 

3 V_EndRange NUMBER := &EndRange; 

4 V_Result VARCHAR2 (500) := NULL; 

5 BEGIN 

6 FOR Mylndex IN V_StartRange . . V_EndRange 

7 LOOP 

V_Result : = V_Result | | ' ' | |V_Starj 

V_S tart Range : = V_S tart Range 
DBMS_OUTPUT . PUT_LINE ( ' The Index Valued 
END LOOP; 

DBMS_OUTPUT . PUT_LINE (V_Result) 

END; 



Value : 
Va ^^gr : 



procedure 



.,> SPOOL OFF 
5QL> cl scr 

SQL> SPOOL OFF 
SQL> cl scr 



successfully completed. 
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SQL> DECLARE 

2 V_NumFact NUMBER := &GiveNumber; 

3 V_Factorial NUMBER := 1; 

4 BEGIN 

5 FOR IndexI IN l..V_NumFact 

6 LOOP 

7 V_Factorial := V_Factorial * IndexI; 

8 END LOOP; 

9 DBMS_OUTPUT . PUT_LINE ( ' The Factorial of 
' I I V_Factorial ) ; 

10 END; 

11 / 

Enter value for givenumber: 5 
The Factorial of 5 is : 120 



| | VJSfumFact | | 



PL/SQL procedure successfully completed. 



SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 VJSfumFact NUMBER := SGiveNumbe 

3 V_Factorial NUMBER := 1; 

BEGIN 



FOR IndexI IN l..V_NumFact 
LOOP 

V_Factorial := V_F act or iter IndexI ; 

DBMS_OUTPUT .PUT^IN^rt^-jfndex Value is 




| | IndexI ) ; 



9 END LOOP; tjj" 

10 DBMS OUTPUT .PUT L Lmu Sl^e Factorial of ' | | V_NumFact | | 
' | | V_Factorial ) ; a+* t _J+ 

11* END ; J W 

SQL> / £ 

Enter value for ^.vermber: 5 
The Index VajM : 1 



is 



The Index V^l^T-ii sl^ 
The Index Va J ^e-p is 
The IndQffWalue is 
The IrSde^^^^lue is : 



120 




The ySc%3pri.al of 5 is 

d^t, rt f 4 

PL/e^j procedure successfully completed. 

\%iL ; 



j> cl scr 



SQL> DECLARE 

2 V_NumFact NUMBER := &GiveNumber; 

3 V_Factorial NUMBER := 1; 
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4 BEGIN 

5 FOR IndexI IN REVERSE l..V_NumFact 

6 LOOP 

7 V_Factorial := V_Factorial * IndexI; 

8 DBMS_OUTPUT . PUT_LINE ( ' The IndexI Number is ' | llndexl) ; 

9 END LOOP; 

10 DBMS_OUTPUT . PUT_LINE ( ' The Factorial of ' | | V_NumFact | | ' is 

' I I V_Factorial ) ; 

11 END; 

12 / 

Enter value for givenumber: 5 
The IndexI Number is 5 
The IndexI Number is 4 
The IndexI Number is 3 
The IndexI Number is 2 
The IndexI Number is 1 
The Factorial of 5 is : 120 

PL/SQL procedure successfully completed. 

SQL> cl scr 

SQL> DECLARE 

2 V_Name VARCHAR2 (30) ; 

3 V_Position VARCHAR2 ( 100) : = NjJLL ; 

4 BEGIN 




V_Name : = 1 SEnterYourName 



Na^e'Jj^ ^ 

FOR I IN 1.. LENGTH (V. 

7 LOOP i^t L fk + + j ' tr 

8 V_Position := V_Poyt\nH ' ' I I SUBSTR (V_Name, I, 1); 

9 END LOOP; 

10 DBMS_OUTPUT.P^^LI»CTtf/^Position) ; 

11 END; f 

12 / 

Enter value for Interyourname : Sample 
S a m p 1 e 



PL/SQL procecN 
SQL> 




\ 

successfully completed. 














\ 

LARE 

k "^OuterLoopRange NUMBER := 5; 

InnerLoopRange NUMBER := 3; 

BEGIN 

5 <<OuterLoop>> 

6 FOR Mylndex IN 1 . . V_OuterLoopRange 

7 LOOP 

8 DBMS_OUTPUT . PUT_LINE ( ' When Outer Loop Index Value = ' | IMylndex); 
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9 <<InnerLoop>> 

10 FOR Mylndex2 IN 1. . V_InnerLoopRange 

11 LOOP 

12 DBMS_OUTPUT . PUT_LINE ( ' Outer Loop Index Value = 

| | OUTERLOOP . Mylndex | | ' , 'll 'Inner Loop Index Value = 

13 END LOOP InnerLoop; 



I | Mylndex2 ) 



14 END LOOP 

15 END; 

16 / 

When Outer 
Outer Loop 
Outer Loop 
Outer Loop 
When Outer 
Outer Loop 
Outer Loop 
Outer Loop 
When Outer 
Outer Loop 
Outer Loop 
Outer Loop 
When Outer 
Outer Loop 
Outer Loop 
Outer Loop 
When Outer 
Outer Loop 
Outer Loop 
Outer Loop 



OuterLoop; 



= 1 

Inner Loop 
Inner Loop 
Inner Loop 
= 2 

Inner Loop 



Loop Index Value 
Index Value = 1 
Index Value = 1 
Index Value = 1 
Loop Index Value 
Index Value = 2 
Index Value = 2 
Index Value = 2 
Loop Index Value 
Index Value = 3 
Index Value = 3 
Index Value = 3 
Loop Index Value 
Index Value = 4 
Index Value = 4 
Index Value = 4 
Loop Index Value 
Index Value = 5 
Index Value = 5 
Index Value = S^^^n^r Loop 

PL/SQL procedure succe completed. 

S Q L > ED 1 1 ' 

but i 

, , t 



Index Value 
Index Value 
Index Value 

Index Value = 
Index Val 
Index Val 

Index = 

w e = 
Ue = 

Value = 

Inner Loofftandex Value = 
Inne r , L oop Index Value = 

^ i . ~ l +, "R 

Inpe^H^oop Index Value = 
Loop Index Value = 
Index Value = 



Inner Loop 
Inner Loop 
= 3 

Inner Loop 
Inner Loop 
Inner Loop 
= 4 
Inner 




Loop 




Wrote file afiedt, 



1 DEC 

2 V_Out 

3 V Inner 





NUMBER 

NUMBER 



:= 5; 
:= 3; 



BEG*y 

Loop>> 

iM'ytndex IN 



1 . . V_OuterLoopRange 



I | Mylndex) ; 



?MS_OUTPUT . PUT_LINE ( ' When Outer Loop Index Value = 

: InnerLoop>> 

FOR Mylndex2 IN 1. .Mylndex 
LOOP 

DBMS_OUTPUT . PUT_LINE ( ' Outer Loop Index Value = 

| | OUTERLOOP . Mylndex | | ' , ' | | 'Inner Loop Index Value = ' | |MyIndex2) ; 

13 END LOOP InnerLoop; 
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14 

15* 

SQL> 



END LOOP 
END; 

/ 



OuterLoop; 



When i 


Outer 


Loop 


Index 


Value 


= 1 




Outer 


Loop 


Index 


Value 


= 


1 , 


Inner 


Loop 


When i 


Outer 


Loop 


Index 


Value 


= 2 




Outer 


Loop 


Index 


Value 


= 


2 , 


Inner 


Loop 


Outer 


Loop 


Index 


Value 


= 


2 , 


Inner 


Loop 


When i 


Outer 


Loop 


Index 


Value 


= 3 




Outer 


Loop 


Index 


Value 


= 


3 , 


Inner 


Loop 


Outer 


Loop 


Index 


Value 


= 


3 , 


Inner 


Loop 


Outer 


Loop 


Index 


Value 


= 


3 , 


Inner 


Loop 


When i 


Outer 


Loop 


Index 


Value 


= 4 




Outer 


Loop 


Index 


Value 


= 


4 , 


Inner 


Loop 


Outer 


Loop 


Index 


Value 


= 


4 , 


Inner 


Loop 


Outer 


Loop 


Index 


Value 


= 


4 , 


Inner 


Loop 


Outer 


Loop 


Index 


Value 


= 


4 , 


Inner 


Loop 


When i 


Outer 


Loop 


Index 


Value 


= 5 




Outer 


Loop 


Index 


Value 


= 


5 , 


Inner 


Loop 


Outer 


Loop 


Index 


Value 


= 


5 , 


Inner 


Loop 


Outer 


Loop 


Index 


Value 


= 


5 , 


Inner 


Loop 


Outer 


Loop 


Index 


Value 


= 


5 , 


Inner 


Loo» 


Outer 


Loop 


Index 


Value 


= 


5 , 


Inner 


Loop 



Index Value = 

Index Value = 
Index Value = 

Index Value = 
Index Value = 
Index Value = 

Index Value 
Index Value 
Index Val 
Index Value'll 

Index = 

= 

Ina^xi^aaue = 
Rvalue = 
Value = 




PL/SQL procedure successfully 



SQL> ED 
Wrote file 



af iedt . buf 






DECLARE 

V_OuterLoopRange 
V_InnerLoopRanj% M 
BEGIN rW 

<<OuterLoop>> A 

FOR Mylndex V[N 1*. . V_OuterLoopRange 
LOOP j-i-H ■ + t+ T ^ 

DBMS_(^X#W% . PtJT_LINE ( 'When Outer Loop Index Value = ' | | Mylndex) 
«Innerl ^y p» 

FOJFJMy Index IN 1.. Mylndex 

' B^*5utput . PUT_LINE ( ' Outer Loop Index Value = 

OOP. Mylndex | | ' , 'll 'Inner Loop Index Value = ' | | Mylndex); 

LOOP InnerLoop; 

LOOP OuterLoop; 

END; 



FOR Mylndex IN 1. 



. Mylndex 



ERROR at line 10: 
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ORA- 06550 
PLS-00364 
ORA-06550 



line 10, column 20: 
loop index variable 
line 7, column 1: 



'MYINDEX' use is invalid 



PL/SQL: Statement ignored 



SQL> ED 
Wrote file 



af iedt . buf 



1 DECLARE 

2 V_OuterLoopRange NUMBER := 5; 

3 V_InnerLoopRange NUMBER := 3; 

4 BEGIN 

5 <<OuterLoop>> 

6 FOR Mylndex IN 1 

7 LOOP 

8 DBMS_OUTPUT . PUT_LINE ( ' When Outer Loop Index 

9 <<InnerLoop>> 

FOR Mylndex IN 1 
LOOP 

DBMS_OUTPUT . PUT_LINE ( ' Outer Loop 




. V_OuterLoopRange 



10 
11 
12 

| | OUTERLOOP .Mylndex | | ' , 

13 END LOOP InnerLoop; 

14 END LOOP OuterLoop; 
15* END; 



. OuterLoop . Mylndex 



SQL> / 

When Outer 
Outer Loop 
When Outer 
Outer Loop 
Outer Loop 
When Outer 
Outer Loop 
Outer Loop 
Outer Loop 
When Outer 
Outer Loop 
Outer Loop 
Outer L 
Outer L 
WhenxOuthpr' 
Ou^gik Lc|Sop 
Outrefc/Loop 
wutJetf Loop 
Venter Loop 
JDuter Loop 



| ' Inner Lo. 



# 




^W ++ 

ie% \%lue = 
Val 






I | Mylndex) 



Inde 



Value = ' | | Mylndex) 



Loop Index Value 
Index Value = 1 
Loop Index Valti^J 4 %j2 l ’i; 

Index Value , Inter 

Index Value 
Loop Ind^fe 

Index V l[lug -K=^ttjj , Inner Loop 
Index Valued 3 , Inner Loop 



Loop Index Value = 1 



.ue> 
Index Vlalue = 



^Jtnner Loop 
e = 3 



Loop Index Value 
Index Value 




kdex Value 
v^lue = 4 
Value = 4 
Index Value = 4 
index Value = 4 
Loop Index Value 
Index Value = 5 
Index Value = 5 
Index Value = 5 
Index Value = 5 
Index Value = 5 



Inner Loop 
= 4 

Inner Loop 
Inner Loop 
Inner Loop 
Inner Loop 
= 5 

Inner Loop 
Inner Loop 
Inner Loop 
Inner Loop 
Inner Loop 



Index Value 
Index Value 
Index Value 

Index Value 
Index Value 
Index Value 
Index Value 

Index Value 
Index Value 
Index Value 
Index Value 
Index Value 



PL/SQL procedure successfully completed. 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



SQL> cl scr 



SQL> DECLARE 

2 V_MyChar VARCHAR2 (20) ; 

3 BEGIN 

4 <<OuterLoop>> 

5 FOR Mylndexl IN 1..15 

6 LOOP 

7 <<InnerLoop>> 

8 FOR My Index2 IN 1.. Mylndexl 

9 LOOP 

V_MyChar : = V_MyChar | | ' * ' 
END LOOP InnerLoop; 

DBMS_OUTPUT . PUT_LINE (V_MyChar) ; 
VJMyChar := NULL; 

END LOOP OuterLoop; 

END; 



10 

11 

12 

13 

14 

15 

16 




/ 



~k ~k 



~k ~k ~k 



'k'k'k'k'k'k'k'k 



'k'k'k'k'k'k'k'k'k 



'k'k'k'k'k'k'k'k'k'k 



'k'k'k'k'k'k'k'k'k'k'k 



'k'k'k'k'k'k'k'k'k'k'k'k 



'k'k'k'k'k'k'k'k'k'k'k'k'k 



'k'k'k'k'k'k'k'k'k'k'k'k'k'k 



'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 







sA 









A3 



& 



PL/ SQL procedure Successfully completed. 
SQL> cl scr+^^P^Tj 

SQL> SELp^T 

2 Job, Sal 

3 j^rS^emp 

TWH^RE Empno = &V_Empno; 
value for v_empno : 7839 




JOB 



SAL 



KING 



PRESIDENT ### 



SQL> COL Sal FORMAT 9999 
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SQL> R 

1 SELECT 

2 Ename, Job, Sal 

3 FROM EMP 

4* WHERE Empno = &V_Empno 
Enter value for v_empno : 7835 



ENAME 



KING 



JOB SAL 

PRESIDENT 5000 



SQL> / 

Enter value for v_empno : 7722 
no rows selected 



NUMBER := &EnterEmpno; 
VARCHAR2 (30); 

VARCHAR2 (30); 

NUMBER (7, 2); 



SQL> DECLARE 

2 V_Empno 

3 V_EName 

4 V_Job 

5 V_Sal 

6 BEGIN 

7 SELECT 

8 Ename, Job, Sal 

9 INTO + ^ 

10 V_Ename, V_Job, V_Sal ^ 

11 FROM Emp * 4^ 

12 WHERE Empno = V_Empno; , *+ + * 14 ’ j 

13 DBMS_OUTPUT.PUT_LINE^ 







ime 



14 DBMS_OUTPUT .PUT_LIN^'\ae>Job 

15 DBMS OUTPUT .PUT L Tftdv ^T^ Sal: 

16 END; 

17 / 

Enter value for entereapno: 7839 
The Name : KING t 
The Job : PMfifiAl 
The Sal: 5 OmK % 

PL/SQL prtKpedure successfully completed. 

"*+i • ff! if 

SQL>jy \ 

Entel*. value for enterempno : 7722 
ECLARE 



' | | V_Ename) ; 
' I I V_Job) ; 

I |V_Sal) ; 



OR at line 1 : 
RA-01403: no data found 
ORA-06512: at line 8 
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